home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / CineMorph / Shear.cmorph < prev    next >
Text File  |  1996-03-02  |  495b  |  30 lines
  1. /*
  2.  * Text macro for CineMorph
  3.  *
  4.  */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. GetImageSize ; PARSE VAR result width height
  9. GetGridSize ; PARSE VAR result gridx gridy
  10.  
  11. RequestNumber '"Shear Amount:"' 2 ; IF rc ~= 0 THEN EXIT
  12. shearamount = result
  13.  
  14. LockGui
  15.  
  16. shear = 0
  17. DO j = (gridy-1) TO 0 BY -1
  18.    DO i = 0 TO (gridx-1)
  19.       px = (i *  (width-1) / (gridx-1)) + shear
  20.       py = (j * (height-1) / (gridy-1))
  21.       SetPoint Dest i j px py
  22.       END
  23.    shear = shear + shearamount
  24.    END
  25.  
  26. UnlockGui
  27. RedrawGrid Dest
  28.  
  29. EXIT
  30.